###########################################################################
#	$Id: labourProduct.p 3 2009-04-09 10:23:22Z donbeave $
###########################################################################

@CLASS
labourProduct

@USE
concept/conceptModule.p

@BASE
conceptModule

@OPTIONS
locals

#----- Constructor -----

@create[hshOptions]
  ^BASE:create[$hshOptions]

#----- Fabriques -----

@defaultStorageFactory[hshStorageOptions]
  $result[^BASE:defaultStorageFactory[$hshStorageOptions]]

  ^result.addField[Objects;currencyID;currency_id]
  ^result.addField[Objects;price]
  ^result.addField[Objects;isAvailable;is_available]

  ^result.setFieldConverter[Objects;currencyID;^conceptStorage:getIntConverter[]]
  ^result.setFieldConverter[Objects;price;^conceptStorage:getDoubleConverter[]]
  ^result.setFieldConverter[Objects;isAvailable;^conceptStorage:getBoolConverter[]]
